إعداد /عادل صالح علي 


علی نسق درس 


في هذا الدرس كيفية التعامل مع قواعد البيانات بشكل برمجي بدون مساعدة الل هس 


حيث ستناول الامور التالية ب: 


٠‏ إجراء عملية الاتصال مع ملف القاعدة 


ه إضافة سجلات إلى القاعدة 
ه حذف سجلات من القاعدة 

تعديل على سجلات موجودة 
٠‏ إجراء عملية بحث عن سجلات ذات خصائص معينة في القاعدة 


ولفعل ذلك انشيء ملف قاعدة بيانات باستخدام برنامج وومع۸ ۷5 يحتوي على الجدول التالي: 


اسم الحقل 
TablelD‏ 
ENAME‏ 
City‏ 

Mobile 


نملا الجدول بالمعلومات التالية 


E 
Baghdad 07801531323 
Basrah 07801534923 
Muthanna 07801414565 
Hila 07849734923 


يبدو كما هو في الشكل (1عںع|۴) ونجعل الخاصية رام 200عR‏ 


EName | 


Ammar 
Auday 
Hadi 
Husien 


ثم نبدأ مشروعا جديد ومن ثم نقوم بتصميم النموذج بحيث 


اھ 
ا 
E‏ 


من 0×3ط†b0×2,texطox1,textطtext‏ تأخذ القيمة مر يلي ذلك إضافة الشفرة التالية إلى قسم التصريحات العامة: 


Lem. Data; 
Lem.Data.OleDb; 


نقوم بعد ذلك بإضافة الأسطر التالية إلى الصنف الخاصة بالنموذج: 


عدي ياسین 


using Sys! 
using Sys! 


u Forml 
Name Auday 
City Basrah 
Mabile 07801534923 


Figure1 
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BUbBILE pallial €La55 FoEML ? Fon 
{ 
7 
SalI SEEING CORSE = WPEFOVLQAEE=MIEEOSOFELTETELOLEDB: AO" F 


"Data. SOUEG6=MyDaka-:Mdb:. "; 
OleDbConnection Conn = new OleDbConnection (ConStr) ; 
DataSet DataSetl1 = new DataSet (); 
StEING SQOULStEE = "Select * FEOM TabLel™; 
OleDbDataAdapter DataAdapterl; 
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يمثل الحقل كمه سطر الاتصال أو (ع" ذ٣5‏ ”i0اءممnهc)‏ يحتوي هذا السطر على معلومات تخص مزود قواعد البیانات 
)Data Base Provider)‏ حظ (0 . 4 . ft . Jet . 0 LEDB‏ er=Microsoك0viاP)‏ و كذلك المسار إلى ملف قاعدة البيانات, 
ففي المثال المذكور أعلاه يقع ملف قاعدة البيانات و الملف التنفيذي للبرنامج في مجلد واحد لذلك لا حاجة ذكر المسار ونكتفي بوضع اسم 
الملف فقط (طلم. 2خ N™y(02-=ءءإuهS‏ a٤ه<0)‏ ولكي يكون ملف قاعدة البيانات والملف التنفيذي للبرنامج في مجلد واحد ؛ نضع 
ملف قاعدة البيانات داخل مجلد البرنامج ومن داخل مجلد البرنامج نجد المجلّدہ ٥|‏ ثم المجلد Debug‏ ونضع ملف قاعدة البيانات هناك. 
انظر هذا المسار التقريبي (الأمر يعتمد على جهاز القارئ الكريم) 


C:\Users\adel\Documents\Visual Studio 
2008\Projects\WindowsFormsApplication13\WindowsFormsApplication13\bin\Debug\MyData .mdb 


وقد تستغني عن ذلك بوضع ملف القاعدة في أي مجلد متلا (0:[1) ونكتفي بالإشارة إليه في سطر الاتصال وعندها يأخذ سطر الاتصال 
الصورة التالية: 
SEA SEEING CORSEE=—‏ 


"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\1\\MyData.mdb ";‏ 
و إذا أردنا استخدام الطريقتين معا (أي ذكر المسار كاملا مع أن ملف قاعدة البيانات يكون في نفس مجلد الملف التنفيذي) نكتب 


الكود التالي: 


SEALE SEEING CORNSEE = NPEOVIIEE=MLCEOSOFE TEE. OLEDE. 4O0; ™ FF 
"Data Source="+Application.StartupPath+"\\MyData.mdb "; 


بعد ذلك قمنا بتعريف )٥۸١‏ وهو كائن من الصنف ۸ه 1 1١٠٥1‏ ٥0٤ط(١01‏ المخصص لإجراء اتصال مع قاعدة البيانات وقمنا 
بتحديد خصائص عملية الاتصال التي سيقوم بها هذا الكائن بواسطة سطر الاتصال الذي أرسلناه کبارامتر إJl .constructurell‏ 


وهو أمر فعلناه في السطر 


OleDbConnection Conn = new OleDbConnection (ConStr) ;‏ 
تقوم الشفرة التالية بتعريف شبكة المعطيات 


DataSet DataSetl1 = new DataSet ();‏ 
تعتبر شبكة المعطيات الصنف المسؤول عن خزن الجداول ويعمل هذا الكائن في الوضع المنفصل (disconnected modê‏ 


أي أن البيانات الموجودة داخل تعتبر نسخة ام اوم ه١5‏ (وليس الأصل)من ما هو موجود داخل القاعدة, يستخدم هذا الأسلوب لتوفير 
الموارد إذ لولا ذلك للجأنا إلى القاعدة عند كل عملية انتقال من سجل إلى آخر وهو أمر مكلف جدا. 


يقوم الحقل إخ ء91 (وهو عبارة عن سلسلة محارف عادية) بخزن أمر مكتوب بلغة الاه؟ 
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يلي ذلك تعریف كائن من الصنف OleDbDataAdapter‏ و هو الوسيط بين شبكات المعطيات و القاعدة حيث يقوم بجلب 
الات من قاع لی اکل رل و رکا فی فك العطیات:. 


قم بالنقر مرتين على النموذج ( الفورم ) واكتب الشفرة التالية: 


private void Forml Load(object sender, EventArgs e) 


{ 
\AXKXKKKKXKKXXXXXKXHKKK KKK KOK OK OK OK OK OK OK XK XK 
Conn. Open (); 
DataAdapterl1l = new OleDbDataAdapter (SQLstr, Conn); 
DataAdapter1.Fill (DataSet1l, "Tablel"); 
Conn.Close(); 
\AXKXKKXKXKXKXKXKXXXXXKKHKK KKK KOK OK OK OK OK OK OK OK XK XK 
textBox1.DataBindings.Add ("Text", DataSetl, "Tablel.EName"); 
textBox2.DataBindings.Add ("Text", DataSetl, "Tablel.City"); 
textBox3.DataBindings.Add ("Text", DataSetl, "Tablel.Mobile"); 
label5.DataBindings.Add ("Text", DataSetl, "Tablel.TableID"); 
\AXKXKKKKXKXKXKXKXXXKKHK KK KK OK OK OK OK OK OK OK OK XK XK 
ChangePosition (); 

} 


يعمل السطر الأول من الشفرة على فتح قناة اتصال بقاعدة وهي مهمة يضطلع بها المنهج "هم0 (كيف يعرف المنهج المعلومات اللازمة 
للاتصال؟) بينما يقوم السطر الثاني بتهيئة الوسيط الذي يقوم بدوره بسحب المعلومات اللازمة من القاعدة والتي حددها البارامتر 
SQLstr‏ , بعد أن تم تامين اتصال له بواسطة البارامتر ,دهع المفتوح . يعقب هذا الأمر إضافة المعطيات التي جاء بها الكائن 
taAdap te1‏ مط إلى شبكة المعطيات على شكل جدول (لماذا جلب الكائن المعطيات على شكل جدول ؟) ثم حددنا اسم هذا الجدول 
بالبارامتر الثاني 1٥1طه"1‏ . 


تقوم المجموعة الثانية من الشفرة بربط حقل معين من جدول معين موجود داخل شبكة المعطيlت Table1 .EName) DataSet1‏ 
مثلا) بخاصية 1٠×٤(‏ في حالتنا هذه) من خواص المكون الذي استدعى المنهج ء وم Dat a81٣1‏ . 


ملحوظة: اجعل المكون 15ءطه| مختفيا وذلك بجعل الخاصية ١٥اه٤عء٣ه۴‏ تأخذ القيمة اهمه و اجعل موقعة تحت المكون 
3 ×هt‏ تماما ولا يخفى على القارئ الكريم أن 80×3×ه† سيعرض الحقل ءااطاه" من الجدول (لماذا؟) وافعل نفس الشيء مع 
الخاصية هام٤ Bc)‏ من المكون 5اعطها . 


يستدعي السطر الأخير المنهج () «هذخذوه۶۲ءو,صهطع وهو منهج قمنا بكتابة شفرته لجعل المستخدم يرى رقم السجل الحالي من 
الجدول 1٥1طج"‏ الموجود داخل شبكة المعطيات 


private void ChangePosition () 


{ 
int i1=this.BindingContext [DataSetl, "Tablel"].Position+t1; 
int i2 = this.BindingContext [DataSetl, "Table1l"].Count; 
1ãbDêl1 Text = "RecoOEd TELL:TOSTEING(JE™ From "ti2 .TOSEELNGT()F 
} 


يقوم السطر الأول بجلب موقع السجل الحالي من الجدول المحدد (1ع1طه"١)‏ . طبعا لابد ان تحتوي شبة المعطيات 1٤٥٤aخه0‏ على 
جدول محدد بالبارامتر الثاني (متى وضعنا هذا الجدول داخل شبكة المعطيات؟) بينما يقوم السطر الثاني بجلب عدد السجلات داخل 
الجدول المحدد . (ما هو عمل السطر الثالث؟ ) و هذه هي نتيجة عمل الشفرة 
Record 1 Fram 5‏ 
السابقة .اضغط على ۴5 وانظر إلى النتائج. 
Figure2‏ 
لاحظ ان البرنامج يقوم بعرض السجل الأول فقط حيث أننا لم نتخذ بعد أي إجراءات للتنقل عبر السجلات. 
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قم بالنقر مرتين على الزر ١18ء٣۴‏ والذي يحوي الخاصية ٠٥×٤‏ ذات القيمة ء٣۴‏ واكتب الشفرة التالية: 


pEivalbe Told FiEStBtEn Click (object sender; EventArFGS €) 


{ 


this.BindingContext [DataSetl, "Tablel"].Position = 0; 
ChangePosition (); 


تم قم بالنقر مرتين على الزر ر٤‏ طخ×ه" والذي يحوي الخاصية ×16 ذات القيمة "٠×٤‏ واكتب الشفرة التالية: 


p#ivaté Void NextBtn Click(objJéettE sender; EventArgs 6€) 
ا‎ 


this.BindingContext [DataSetl, "Tablel"].Position += 1; 
ChangePosition (); 


لاحظ أن الخاصية ره 1ع :وط أخذت القيمة 0 في الحدث 11ء الخاص بالزر «٫خطخوءإذ۴‏ بينما زادت بمقدار واحد في 
لحدث 11ء الخاص بالزر وغex8ءNe.‏ 


قم بالنقر لئ مرتین على الزر PrevBtn‏ والذدي يحوي الخاصية Text‏ ذات القيمة Prev‏ واکتب الشفرة التالية: 


pElivaltêéê vold PrevBtn Click(object sender, EventArgs €) 


{ 


this.BindingContext [DataSetl, "Tablel"].Position -=1 ; 
ChangePosition (); 


قم بالنقر على مرتين على الزر رخ ط٤‏ ءج والذي يحوي الخاصية 1٥×‏ ذات القيمة ٤ءه.1‏ واكتب الشفرة التالية: 


plivaté VoOld LastBth. Click(objettE sender, EventArgs 6€) 


{ 


this.BindingContext [DataSetl, "Tablel"].Position = 
this.BindingContext [DataSetl, "Table1l"].Count = 1; 
ChangePosition (); 


} 


لاحظ أننا استدعینا ١‏ ذ لمنهج ChangePosition‏ عند كل مرة قمنا فيها بتغيير موقع ١‏ لسجل الحالي وذلك حتى يتم تعديل رقم السجل 
الموجود في الخاصية »ع من المكون 11٠طه1.‏ 


قم بتشغيل البرنامج واستمتع بالتنقل بين السجلات. 
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في هذا الجزء سنقوم بتنفيذ الإجراءات الخاصة بإضافة سجل جديد لقاعدة البيانات. 


ولكي نفعل ذلك نقوم بالاتي: 


(Figure3) Add Windows Form pû Project ill من القائمة الرئيسية نختار‎ .1 


2. من النافذة عا ٥W‏ ل۸ اذهب الى ومtدام‏ "ء۲ واختر البند 
Windows Forms‏ تم انقر على lلزر (Figure 4) ADD‏ 


قم بتنسيق النموذج الجديد بحيث يبدو كما في الصورة (5 عا u‏ عا۴) 


dB] Installer Class 2 
®} IScript File 

[Î Local Database 

]MDI Parent Form 

Î Report Wizard 
Servîce-based Database 
Aj Style Sheet 

8 User Control 

E WCF Service 

B®] Windows Script Host 
[E] XML File 

( XSLT File 
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على نسق درس عدي یاسین 


Build Debug Data Format Tools 


آ 


| Add Windows Form... 
Të] | Add User Control... 
TÈ] | Add Component... 
#g | Add Class... Shift+ Alt+C 
Add New Item... Ctrl+Shift+A 
Adid Existing Item... Shifter Alt+ A 


Exclude From Project 


Show All Files 
Add Reference... 


Add Service Reference... 
Set as StartUp Project 


*; | Refresh Project Toolbox Items 


WindowsFormsApplicationl3 Properties... 


Templates: 


Hl Icon File 
li Interface 
j UNQ to SQL Classes 
Lacal Database Cache 
Ed Report 
FHI Resources File 
J} Settings File 
E] Text File 
El User Control (WPF) 
Î Windows Form 
Ë] Windows Service 
lã] XML Schema 
My Templates 


ıi] Search Online Templates... 


Figure3 


یجس 
Add New Item -‏ 


Categories: 
Visual C# tems 
Code 
Data 
General 
Web 
Windows Forms 
WPF 
Reporting 
Workflow 


A blank Windows Form 


Name: Form2.cs 


Figure 4 


FigureS 
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والان عد الي النموذج الارل (الفورم الاول) وانقر على الزر Ad‏ واکتب الشفرة التالية: 


private Voll Add Click (6bB Jeet Séndér, EventArgs: €6) 
{ 


Form2 frm2 = new Form2 (); 
frm2.Show(); 
this.Hide(); 

} 


قمغا باتقاء كان من نوغ 4ج وسن تم إظهاره ب والان ق بإضافة الأسطن التالية لى قم التصر يحات العامة في الشفرة الخاضة 
بالنموذج ۴0۲"2 


using System.Data; 
using System.Data.OleDb; 


لا يخفى على القاريء الكريم انه لإظهار الشفرة الخاصة بأي نموذج ننقر بالزر الأيمن من الفارة على هذا النموذج , ثم من القائمة 
المنسدلة نختار البند مه٣‏ سع۷ كما في الصورة (6 عا uع۴i(‏ 


Properties 


Figure 6‏ 
عد إلى النموذج الثاني وقم بإضافة الأسطر التالية إلى الشفرة الخاصة بالنموذج: 


BUDLILE BAEC TLaAL CLS FOEN2 Fon 


{ 


StalLLE SEEING ConSEE = NPEOVIdEE=MILCEOSOFE : TEE OLEDB. 4Q0; # 
"Data Source=MyData.mdb "; 

OleDbConnection Conn = new OleDbConnection (ConStr) ; 

// string SQLstr = "Select * from Tablel"; 


انقر على الزر ١8|عء"ه)‏ وهو والذي يحوي الخاصية »ع1 ذات القيمة اعمء"ه٤‏ واكتب الكود التالي: 


private Toid CancelBtn Click(ob ject Sender, EventArgs €) 


{ 


Application. OpenForms [0] .Show(); 
this.Close(); 
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إنشاؤها ضمن البرنامج حسب ترتيبها في الانشاء . يقوم السطر الثاني بإغلاق النموذج الثاني 


قم بالنقر مرتين على الزر ١8٥۷ه5‏ وهو الزر الذي يحتوي على الخاصية ۲×٤‏ ذات القيمة م52۷ واكتب الشفرة التالية: 


pEiITatêe Vol SaveBtn Click(oBJêet sender, EventArgs €) 


{ 
ELE Gg r, 
OleDbCommand Savelnto = new OleDbCommand () ; 
SavelInto.Connection = Conn; 
Savelnto.CommandType = CommandType. Text; 
SavelInto.CommandText = "Insert Into Tablel (EName,City,Mobile) " + 
" Vvalües (" + S5 ¥ LéxXlBOXl.TeEXl FF 6 ¥ TT" + S3 
textBox2. Text sS To Hd 
textBox3. Text sS E 
/fxxxxxxXxxXxxXxXxXXxXXXXXXXK XK 
EEY 
{ 
Conn. Open (); 
Savelnto.ExecuteNonQuery () ; 
Conn.Close(); 
MessageBox. Show ("Successful Operation"); 
Application. OpenForms [0] .Show(); 
(Application. OpenForms [0] as Form1) .RefreshDataSet (); 
} 
catch (Exception ex) 
ا‎ 
MessageBox. Show ("Badly Entered information"); 
ا‎ 
} 


ملحوظة : اود أن انوه الى انه للعودة من محرر الشفرة الى مصمم النموذج(6۲٠‏ اوم0 )۴٥۲۳١‏ ننقر بالزر الايمن للفارة على محرر 
الشفرة ونختار من القائمة المنسدلة البند 6۲ وایم٥ W‏ ع۷ كما ھو موضح بالشکل (7 r٥‏ ںوا۴) 


او د فقط أن اذکر القار يءَ الكر یم الصيغة العامة لجملة٤عمءم|‏ هي التالية: ھچ WindowsFormsApplication13.Form2‏ $ 
private void CancelBtn Click (object sender‏ - 
E : : Insert Into TableName (Field1,Field2,..,Fieldn )‏ 
ha Cog j LED | values ('Field1Vval','Field1Val',...,'FieldnVal')‏ 
Refactor ۴‏ 1 5 
F Organize Usings ۴‏ ا 
به م ا تغد sءمن‏ الشف وة السابقة بدور علامة ااك ۴ ولهذا Create Unit Tests...‏ 3 3 
Insert Snippet...‏ 2 
هیئناه بالقي م المذكورة. گا أن 1 ن ل عبارة عن ج وبناءا عليه Zl, | Surround With...‏ 
Go To Definition‏ | ® 
» ي ا Find All References ٤‏ 
Breakpoint ٣‏ 
#E | Run ToC‏ 
لا نحتاجه لو كانت الحقول قيما عددية. ا م 3 
Cee . * . ٤ ۰.‏ ھ 
الجديد في الأمر أننا عرفنا متغير من الصنف كم" C0٤ط0٥01 E | Paste‏ 
Qutlining ۴‏ 


وأعطيناه الاسم SavelInto‏ .„ سنستخدم هذا الكائن أتنفيذ أمر الإضافة ا 
Figure7‏ 


قاعدة البيانات, كما يمكن أن نستخدمه لتنفيذ أوامر الحذف والتعديل وهو شيء سنقوم به في مراحل لاحقة . 
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تعمل كائنات الصنف 4ة ٤0٥"‏ ط(5٠01‏ في الوضع المتصل (لماذا؟) لأنها تستطيع تغيير محتويات قاعدة البيانات كما انها تجلب 
معطيات من قاعدة البيانات ولهذا فان الخاصية,ه:٤ءء«صهع‏ من الكائن 0٤,1٠ء»هء‏ أخذت القيمة رده أي تم ربطها مع 
كائن الاتصال . إن منح القيمة † conn a۸1 yمء . 1٠×‏ للخاصية ype‏ 1لnan»«دc‏ يعني أن الكائن ه٤,1٠ءرهك‏ سينفذ عبارة 
1 موجودة داخل الخاصية ”41٠×t‏ ةسه . نقوم بعد ذلك بأخذ القيم الموجودة داخل المكونات 6×80×1]و 

texB 0×2‏ و te×x180×3ا‏ وتضمينها ضمن جملة 5۵1 واضافة مايلزم من كلمات محجوزة وعلامات تنصيص والخ. 


في المجموعة الثانية من الشفرة قمنا بعمل اتصال مع قاعدة البيانات ونفذنا أمر الإضافة ثم أغلقنا الاتصال . 


Application. OpenForms [0] .Show(); 


انظر الى السطر التالي من الشفرة : 
(Application. OpenForms [0] as Form1) .RefreshDataSet ();‏ 


متى نستخدم الكلمة المحجوزة ءج ؟ عندما نطلب من كائن من صنف الأب أن يتصرف كأحد الأبناء بمعنى أننا نريد استخدام خاصية او 
منهج موجود في الابن و غير موجود في الأب وستتم العملية بنجاح إذا تمت تهيئة هذا المتغير بقيمة من نوع الابن([ 0] Ope ۸۴۳٥٣۳5‏ 
في حالتنا هذه وهو من النوع ”إه۴) أو أسندت إليه قيمة من نوع الابن . معروف أن المنهج 5٥W‏ هو منهج يحمل التوصيف 
ااام وموجود في كل النماذج اما المنهج 25٤‏ خ1(2وءه٠ءءإ۴هR‏ هو منهج قمنا نحن بكتابة شفرته وغير موجود الا في الابناء من 
الصنف ۴٥۳۸1‏ لذا كان لزاما علينا تحويل [0] و٨إه٣‏ ”هص إلى كائن من الصنف 1٣ء٠٣‏ (واكيد أن العملية ستتم بنجاح ذلك 
أن أول نموذج أنشيء من قبل البرنامج هو نموذج من النوع1إه٣‏ ) أضف الى ذلك يحمل التوصيف ءiاطنام‏ أيضا لكي نتمكن من 
استدعاءه من داخل شفرة النموذج .۴٥۲۳2‏ نعود الآن إلى النموذج ۳٥٣۳1‏ ونضیف شژفر زنج RefreshDataSet‏ 


public void RefreshDataSet () 
{ 
Conn. Open (); 
DataSet1.Clear (); 
DataAdapter1.Fill (DataSet1,"Table1l"); 
Conn.Close(); 


} 


قمنا بمسح محتويات شبكة المعطيات (1٤٥a5٤ه5‏ )ثم ملأناها بمعطيات حديثة مجلوبة من قاعدة البيانات (من جلبها وكيف عرف 
البيانات المطلوب جلبها )؟ ونقصد بحديثة أن التغيرات التي اجريت من اضافة وحذف وتعديل قد تم اخذها بعين الاعتبار وستعرض 
للمستخدم. 

فقط لاحظ إننا وضعنا شفرة الإضافة داخل كتلة من النوع رع وذلك لضمان تلافي الأخطاء إذا قام احدهم بإدخال معلومات غير مقبولة 
(مثلا نص يحتوي على علامة تنصيص ') او غير ذلك . 


قم بتشغيل البرنامج تم انقر على الزر ۸50 واستمتع بإضافة سجلات إلى قاعدة البيانات الخاصة بك. 
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لحذف سجلات قم بالنقر مرتين على الزر م†ء‌ام0 من النموذج ۴٠۲1‏ واكتب الشفرة التالية: 


private ¥Yold Deleté CIiceK{SBject sender, EventArgs €) 
{ 
if ( MessageBox. Show ("Are You Sure That You Want to Delete?", 
"Warning", MessageBoxButtons.YesNo) 
==DialogResult. Yes) 


OleDbCommand DeleteCommand = new OleDbCommand () f 


DeleteCommand.Connection = Conn; 

DeleteCommand. CommandType = CommandType. Text; 

DeleteCommand.CommandText = "Delete from Tablel where 
TableID=" + label5.Text; 


EE 
{ 

Conn. Open (); 
DeleteCommand. ExecuteNonQuery () ; 
Conn.Close(); 
MessageBox. Show ("Successful Operation"); 
ChangePosition (); 
RefreshDataSet (); 


} 
catch (Exception exp) 
{ 
} 


} 


قمنا بسؤال المستخدم لتأكيد رغبته في حذف السجل الحالي لأنه قد ينقر عن طريق الخطأً على الزر مءام فإذا أكد رغبته في حذف 
السجل شرعنا في خطوات الحذف . انظر إلى الشفرة السابقة ستلاحظ اننا انشأنا كائنا من النو عل رة ٤٥0"١.»‏ ط0٥01‏ و أعطيناه الاسم 
e1etecommandط‏ ربطناه بكائن الاتصال وحددنا له الطريقة التي يتلقى بها جملة الاه التي سينفذها انظر إلى السطر الرابع ستجد 
أننا أضفنا ١٠×‏ . 15١طه1‏ إلى جملة ال51 التي سيقوم الكائن ل رة».٥‏ ٤٠٤٠1ء0‏ بتنفيذها . لو يتذكر القاريء الكريم في 
بداية الدرس , أننا قمنا بإخفاء المكون 15٥طج1‏ وذلك بجعل الخاصتين إ1 8a٥»)‏ و ۲إ10٥٤١٠ءإه۴‏ تأخذان القيمة 

اه٣nه‏ . في الحقيقة لم نخف هذا المكون وإنما جعلنا لون النص ولون خلفية المكون لونا واحدا ولا تنسى أننا ربطنا المكون 
5طه1 مع الحقل 10١1طه1‏ من الجدول 1٥1طه1‏ داخل شفرة الحدث 1٥24‏ من النموذج ۳1إه۴. 


فجملة الا5Q‏ التي سينفذها الكائن ل ردص 5١1٠٤٠٤٥١‏ تقول احذف السجل الذي تكون فيه قيمة الحقل ((1١٥1طه١)‏ مساوية 
للقيمة الموجودة داخل 1abeê1T5. Text‏ (لم نضف أي علامة تنصيیص لماذا؟). 


لماذا وضعنا الشفرة داخل كتلة من النوع ryڈ‏ ؟ ومذ ChangePosition alin ءleدتwlڊ lia‏ ؟ SRefreshDataSet؟‏ 


وضعنا الشفرة داخل كتلة من النوع ر٣‏ لضمان تلافي الأخطاء التي قد تحدث عند إجراء عملية انفحذزف ÎمChangePositionl‏ 

فمن خصائص عملية الحذف أن السجل الحالي بعد الحذف يصبح هو السجل الأول أي أن اله 1خ 1وهط ستاخذ القيمة 0 وهو امر 
يجب أن يؤخذ بعين الاعتبار عند اظهار معلومات عن السجل الحالي وقل نفس الشيء عن المنهج الخم5ةة0 ۸ءع۴۲ءR‏ الذي سيجدد 
المعلومات الموجودة داخل شبكة المعطيات لان هناك سجلات حذفت ويجب إلا تظهر للمستخدم كسجلات حالية. (من المسؤول عن جعل 
المستخدم يرى السجلات الموجودة داخل شبكة المعطيات وليس السجلات التي في القاعدة نفسها؟ ولماذا قد تختلف المعطيات الموجودة 
في القاعدة عن المعطيات الموجودة في شبكة المعطيات؟). 


والجواب على السؤال هو أن عملية الربط بين المكونات وشبكة المعطيات والموجودة في الحدثلمه1 من النموذج ۴01 هي 
السسوؤرة عن جل المدتكدم عبات القكة رن عطاك القاعة اما الجواب على أفمرال اقاي زهو أن هة تمل قى الرضع 
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المنفصل (disconnected mode)‏ وبالتالي فإن التغييرات التي تقع في قاعدة البيانات لن تؤثر على المعطيات الموجودة في الشبكة إلا 
إذا فعلنا ذلك عن عمد وهو ما نفعله عند استدعاءنا مر .Refresh DataSet‏ 
Solution Explorer - WindowsForms.,. ¥ HM »‏ 


قم بتشغيل البرنامج وتمتع بحذف السجلات واضافتها. A EEE‏ 
[a Solution 'WindowsFormsApplicationl6'‏ 
تعدیل سجل موجود: E GÊ WindowsFormsApplication16‏ 
H.. Êdl Properties‏ 
أضف نموذج جديد إلى البرنامج كما هو موضح بالشكل (3 ٥۲ں‏ وا۴) و الشكل HH Î References‏ 


-- E] Formi.cs 
8| Formd.cs 
r. EE] Form3.cs 
4 i] Program.cs 


ure 4(‏ و۴ ) ستلاحظ أن النافذة 0۲6۲ام×E‏ 0۸ا 0ا0 أصبحت تحتوي على 


3 نماذج کما هو موضح في الشکل (8 ٥٣ں‏ وا۴). قم بتشکیل النموذج ۴٥٣۳3‏ 


كي يصبح مثل النموذج الموضح في الشكل (9 ںو|۴) ثم اذهب إلى الخاصية Figure8‏ 
Modifiers‏ من کل textBox3 yg textBox2 yg textBox1 ja‏ اک د Update This record‏ 2 
be4ھ|‏ واجعلھا تاخذ القیمة icاbں۲‏ . 
اذهب إلى الشفرة الخاصة بالنموذج ۴٠٣3‏ بنفس الطريقة الموضحة في الشكل ا 
٣۵ 6(‏ uع|۴)‏ و أضف الأسطر التالية : Cy‏ 
Mobile‏ 
la‏ 


Figure9 


BUDILE BaEElaL êl FOENS: ; Form 
{ 
/fXKXXKXXXXXXXXXK KK KK OK KK KK KK KK KK KX XK 
Stalliê SEFÎng ConStt = TPEOVILQdEF=MICFOSOFE TEE. OLEDB.4.0;™ F# 
"Data Source=MyData.mdb "; 


OleDbConnection Conn = new OleDbConnection (ConStr) ; 
\\XKXKKKKXKXKXKKXKK KK KOK KOK KOK OK OK O OK OK OF KF KK KK XK 


اذهب إلى النموذج ۴٠۲۳1‏ وانقر مرتين على الزر مةه همل وقم بكتابة الشفرة التالية: 


privaté vold UpdateBtn Click(6BJegt sender, EvVênEAEGS €) 
{ 

Form3 frm3 = new Form3(); 
frm3.label4.Text = this.label5.Text; 
frm3.textBoxl.Text = this.textBoxl1.Text; 
frm3.textBox2.T = this.textBox2.Text; 
frm3.textBox3.Text = this.textBox3.Text; 
frm3.Show(); 


0 
Xx 
EF E 


1t ROL f 
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ستضمن الشفرة السابقة نقل البيانات الموجودة في النموذج ۴٥۲۳۸1‏ الس النموذج la)Form3‏ الفائدة من جعل المكونات المذكورة سابقا 
تاخذ القيمة icااں"‏ من اجل الخاصية وءإ٥‏ ذ۴ ذلهل ) و الآن اذهب إلى النموذج ۴٠۴۳3‏ وانقر مرتين على الزر ٥tةلمل‏ واكتب 


الشفرة التالية: 
private void UpadateBtn Click (object sender, EventArgs e)‏ 
ا 

ECER Gg RN, 

OleDbCommand UpdateCommand = new OleDbCommand () ; 

UpdateCommand.Connection = Conn; 

UpdateCommand. CommandType = CommandType. Text; 

UpdateCommand. CommandText = "UpDate Tablel Set EName=" + s + 
textBoxl1l.Text + s +", City=" + s + textBox2.Text + s + ", Mobile=" + 
+s+textBox3.Textts+ " where TablelID="+label4.Text; 

/fxxxxxXxXxXxXXXxXxXXkxXXX 

EE 


{ 
Conn. Open (); 
UpdateCommand. ExecuteNonQuery () ; 
Conn.Close(); 
MessageBox. Show ("Successful Upadate Operation"); 
Application. OpenForms [0] .Show(); 
(Application. OpenForms [0] as Form1).RefreshDataSet () ; 
this.Close (); 


} 
catch (Exception ex) 
{ 
} 


فقط اذكر القاريء الكريم أن الصيغة العامة للعبارةعةلهمل في لغة الا50 هي 
Upadate TableName Set Fileld1=’Field1Value’ , Fileld2=’Field2Value’, ..., Fileldn=’FieldnValue’‏ 
Where Fileldr=’FieldrValue’‏ 
طبعا نضيف علامات التنصيص إذا كانت الحقل نصيا ونحذفها إذا كان الحقل عدديا. لا يوجد هناك ما هو جديد في الشفرة السابقة حيث 
أننا اتبعنا نفس الأسلوب الذي طبقناه عند الإضافة حيث قمنا بتعريف كائن من النوع "٣4١١‏ ٥0٥ط(١01‏ تم قمنا بتحديد كائن الاتصال 
له والطريقة التي سیتلقی بها أمر SQLÛJI‏ الذي سینفذه وذکرنا له الأمر صراحة وخزناه في الخاصية CcommandText‏ وو شيءِ 
فعلناه مرارا في شفرات سابقة. بعد أن قمنا بتنفيذ أمر ال اه5 (في أي سطر فعلنا ذلك؟) قمنا بإظهار النموذج ۴٠۲۳1‏ (كيف تعرف أن 
۴1 هو من سيظهر؟) وجددنا البيانات الموجودة في شبكة المعطيات الموجودة في النموذج For1‏ بالمنهج 


RefreshDataSet 


قم بتشغيل البرنامج وجرب . 
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التخت:٠‏ 
حتى هذه اللحظة قمنا بأغلب الوظائف التي تعملها برامج قواعد البيانات ولم ييق نا البحث: 


سنضيف نموذجا رابعا للبرنامج ۴٥۲۳١4‏ ونقوم بتنسيقه بحيث يصبح بالشكل (10 ٠٣ں‏ عأ۴) حيث يقوم المستخدم بتحديد الحقل الذي 
سنبحث عن السجلات من اجله, وكذلك سنقوم بتحديد سياسة البحث (تطابق تام , تطابق جزئي) وسندخل الكلمة التي نبحث عنها في 
المكون textROX1‏ 


Searching Field Searching Type 
© Cy Complete Matching 
& Partial Matching 
O) Mobile 


Figure10 
6ه( وهو من سيعرض نتائج البحث.‎ ۲4۷i أضفنا مكونا من الصنف سه‎ 


أضف المقدمة المعهودة إلى بداية الشفرة الخاصة بالنموذج4 ۴٠۲"‏ على الصورة: 


BUDLIE DaECLSL C1655 FoEmM4 ; Form 
{ 
f 
Stallié SEFÎnGg ConStr = NPEOVLQAEE=MICFOSOFE TEE. OLEDB.4.0;™ ¥ 
"Data Source=MyData.mdb "; 
OleDbConnection Conn = new OleDbConnection (ConStr) ; 
DataSet DataSet1 = new DataSet (); 
77 


سنضيف شفرتي المنهجين إءإa‏ »8×2 ور 1nءإaءa1Sإعnمي‏ حيث المنهج يقوم الأول بالبحث عن السجلات التي تحتوي 
على تطانئ فام بين الكلمة امفطة رالطل الى نكر ها ترم الاح أقائي اة عن تاين خزتي بين اة اة رالقل 
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المحدد للبحث نقوم بتحديد الحقل عن طريق ال ور ما8 هال هR‏ الموجودة في المجمو عة لاعا۴ عاطcاممك‏ (انظر الشكل عا uعا۴‏ 
0 ) ونقوم بتحديد سياسة البحث عن ال ك 8u‏ ماله R‏ الموجودة في المجموعة ممرآ ع" أطء٣هه؟.‏ واليك أخي الكريم الشفرة. 


بعد أن قمت بتنسيق النموذج كما موضح في الشكل (10 ٠ں‏ ع۴) اجعل الخاصية ۳ه من ال sہ‏ تاا 8u‏ 0ال ج8 الموجودة في 
المجمو عة ع۴ عہiطarcمك‏ تأخذ القيم NameRadi»‏ و CcityRadio‏ و„ Mobi 1eRadi0‏ محافظا على التوافق بین 
الخاصية Name‏ والخاصية Text‏ في کل مکون. تم أضف الشفرة التالية لى النموذج: 

\AXXKKKKXKXKXXXXXHKK KK KKK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK KK KK XK 


private void GeneralSearch () 


{ 


SEEING. SOLSEE = TSELeETE:. * FEOM TabLET, TT; 
1E (NameRadio.Checked == true) 
SQLstr = SQLstr + " where Ename Like '%" + textBox1.Text + "%'"; 
else 


if (CityRadio.Checked == true) 


SQLstr = SQLstr + " where City Like '%" + textBox1.Text + "%'";, 
else 
1f (MobileRadio.Checked == true) 
SQLstr = SQLstr + " where Mobile Like '%" + textBox1.Text + "%'"; 
ErY 


{ 
Conn. Open (); 
OleDbDataAdapter DataAdapterl = new OleDbDataAdapter (SQLstr, Conn); 
DataAdapterl = new OleDbDataAdapter (SQLstr, Conn); 
DataSet1.Clear (); 
DataAdapter1.Fill (DataSet1l, "Tablel"); 
Conn.Close(); 
dataGridView1.DataSource = DataSetl; 
dataGridViewl.DataMember = "Tablel"; 
} 

catch (Exception ex) 

{ 

} 


ا 


\AKXKKKKXKK KK KKK KOK KK CK KK KK KF KK KF KK KF KK KF o KK 


تقوم الأسطر الاولى بتحديد الحقل موضوع البحث وهذا واضح في المقارنات؟| وتضيف اسم الحقل المحدد ضمن أمر الاه5 الذي 
سينفذ لجلب المعطيات من القاعدة . كذلك لاحظ أننا استخدمنا الكلمة المحجوزةه» 11 وهي المسؤولة عن تحديد كيفية التطابق الجزئي 


(ما معنى كيفية التطابق الجزئي؟ ما الدور الذي تضطلع به الكلمةم)ز| في الاSQ؟).‏ 


اترك الأسطر المحصورة في الكتلة رخ للقاريء الكريم كتمرين ماعدا السطرين الاخيرين , حیث حددنا مصدر المعطيات للمكون 
data Gri dV ie1‏ ثم حددنا الجدول الذي سيعرضه المكون الاخير ذلك أن شبكة المعطيات قد تحتوي على اكثر من جدول وعليه 
فلابد من تحديد الجدول الذي سيعرضه المكون. 


وهذه هي الشفرة التي تخص المنهج ExactSearch‏ بالمسؤول عن ضمان تطابق تام بین الحقل وكلمة البحث ولاتختلف بنیته 
الاساسية عن بنية سابقه إلا في مسالة التطابق لاحظ الطريقة التي شكلنا بها جملة الاهS.‏ 


private void ExactSsearch () 
{ 
string SQLstr = "Select * from Tablel "; 
if (NameRadio.Checked == true) 
SQLstr = SQLstr + " where Ename = '" + textBox1l.Text + "'", 
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else 
if (CityRadio.Checked == true) 
SQLstr = SQLstr + " where City = '" + textBoxl.Text +t "'";, 
else 
1f (MobileRadio.Checked == true) 
SQLstr = SQLstr + " where Mobile ='" + textBox1.Text + "'", 


EEY 


Conn. Open (); 

OleDbDataAdapter DataAdapterl = new OleDbDataAdapter (SQLstr, Conn); 
DataAdapterl = new OleDbDataAdapter (SQLstr, Conn); 
DataSet1.Clear (); 

DataAdapter1.Fill (DataSet1l, "Tablel"); 

Conn.Close(); 

dataGridViewl.DataSource = DataSetl; 

dataGridViewl.DataMember = "Tablel"; 


catch (Exception ex) 
{ 
} 


}// End of ExactSearch 


بعد ذلك اجعل عص N2‏ من ال وره ٤ں‏ ع هذه ه8 الموجودة في المجمو عة ءمر1 و,ذطعإهءS‏ تأخذ القيم مPartia1Radi‏ و 


ن Comp 1 eteRad‏ محافظا على التوافق بين الخاصية مه" والخاصية 1٠×‏ في كل مكون. 


قم بالنقر مرتين على الزر 562۲٥۴۸‏ من النموذج ۴0۲۳١4‏ واكتب الشفرة التالية: 


private void SearchBtn Click(object sender, EventArgs e) 
{ 
if (PartialRadio.Checked) 
{ 
GeneralSearch(); 
} 
else 
if (CompleteRadio.Checked) 
{ 


ExactSearch (); 


